home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed6.d64 / spelling game (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  8KB  |  266 lines
  1. 1 GOTO910
  2. 2 PRINT"x[169][141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X` 
  3. 3 [153]"xSTEPGINPUTSTOPSTEPINPUTONX` (null)(null)STEP(null)INPUTLISTLX(null)xSTEPUINPUTSTOPSTEP(null)INPUTONX`    
  4. 4 PRINT"xhhh[170]h[168]hhhhhhh[152]H[138]HX`    
  5. 5 [153]"hhhhhhh`  
  6. 6 PRINT"[160][255][200][132][251][169][216][133][252] [241][183][138][162][160][255][200][145][251][136][208][251][230][252][202][208][246]`   
  7. 7 [153]"NEWCLOSE(null)LEFT$>(null)ON(null)LET(null)(null)(null)(null)(null)(null)MID$(null)(null)`  
  8. 35 IFUW=0THENSYSUU,15
  9. 40 POKEUC,0:POKEUN,0:UR$="":UI$="":IFUL=0THENUL=39
  10. 45 GETUI$:IFUI$=""THEN45
  11. 50 UA=ASC(UI$):UR=LEN(UR$):IFUA=13ANDUR>0THENPOKEUC,1:PRINT" [157]";:GOTO75
  12. 55 IFUA=20THENON-(UR=0)GOTO45:UR$=LEFT$(UR$,UR-1):PRINT"[157]  [157][157]";:GOTO45
  13. 60 IFUR=ULTHEN45
  14. 65 GOSUB95:UR$=UR$+UI$:PRINTUI$;:GOTO45
  15. 75 FORUI=URTO1STEP-1:IFMID$(UR$,UI,1)=" "THENNEXT
  16. 80 UR$=LEFT$(UR$,UI):PRINT:RETURN
  17. 95 IFLEN(US$)=0THEN110
  18. 100 FORUI=1TOLEN(US$):IFUI$<>MID$(US$,UI,1)THENNEXT:UI$=""
  19. 105 RETURN
  20. 110 IFUA=46THENRETURN
  21. 115 IFUA=32ANDUR<>0THENRETURN
  22. 120 IFUA>47ANDUA<58THENRETURN
  23. 125 IFUA>64ANDUA<91THENRETURN
  24. 130 IFUA<193ORUA>218THENUI$="":RETURN
  25. 135 IFPEEK(UT)=UU%THENUI$=CHR$(UA-128)
  26. 140 RETURN
  27. 155 UZ=0:US$=UJ$:UG$=UK$:UT$=UL$:UP=UJ:UL=UK:PRINT"[147]";:POKEUY,6:POKEUX,6
  28. 160 POKEUT,UV%:POKE251,0:POKE252,UF:POKE253,0:POKE254,US/256:SYSUV:SYSUU,15
  29. 165 POKEU1,U1%:POKEU2,U2%:POKEU3,U3%-1:POKEU4,U4%:GOTO35
  30. 299 :
  31. 300 REM DERIVED FROM COMMODORE ONTARIO EDUCATIONAL SOFTWARE PROJECT 1983
  32. 310 REM PROJECT DIRECTOR: FRANK WINTER
  33. 320 REM PROJECT NAME: SPELLING TUTOR
  34. 330 REM WRITTEN BY: UNKNOWN
  35. 340 REM REVISED BY: ALAN FERGUSON
  36. 349 :
  37. 350 REM UPDATED BY: BILL CUMBERLAND
  38. 360 REM TRANSLATED FROM THE RADIOSCHACK BY EVAN HALE
  39. 399 :
  40. 400 PRINT"[147]":POKEUT,UL%:POKEUY,15:POKEUX,15:POKE646,9
  41. 405 PRINT"             [201][206][211][212][210][213][195][212][201][207][206][211] [146]
  42. 410 [153]" (null)HIS IS A SPELLING GAME FOR TWO "
  43. 415 [153]" STUDENTS OR TEAMS."
  44. 420 [153]" (null)HE GAME IS PLAYED BY HAVING THE"
  45. 425 [153]" CHR$(null)VALVAL(null) TEAM ENTER A LIST OF WORDS.
  46. 430 PRINT" [212]HE [210][197][196] TEAM WILL THEN VERBALLY
  47. 435 [153]" REPEAT EACH OF THE WORDS AS THEY ARE    PRESENTED ON THE SCREEN.
  48. 440 PRINT" [206]EXT, EACH OF THE WORDS WILL BE
  49. 445 [153]" SCRAMBLED ON THE SCREEN AND MUST BE     TYPED CORRECTLY.
  50. 450 PRINT " [198]INALLY, ALL THE WORDS THAT WERE
  51. 455 [153]" SPELLED INCORRECTLY WILL BE             DISPLAYED.
  52. 470 GOSUB592:GOSUB830:RETURN
  53. 499 :
  54. 500 REM <YES> SOUND
  55. 505 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
  56. 510 POKE54296,15:POKE54277,42:POKE54278,250
  57. 515 POKE54276,23:POKE54273,23:POKE54272,191
  58. 520 FORTM=1TO100:NEXT:POKE54276,32:FORTM=1TO200:NEXT
  59. 525 POKE54296,0:RETURN
  60. 530 REM <NO> SOUND
  61. 535 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
  62. 540 POKE54296,15:POKE54277,18:POKE54278,242
  63. 545 POKE54276,33:POKE54273,4:POKE54272,48
  64. 550 FORTM=1TO300:NEXT:POKE54276,32:FORTM=1TO400:NEXT
  65. 555 POKE54296,0:RETURN
  66. 560 REM <BLIP> SOUND
  67. 565 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
  68. 570 POKE54296,9:POKE54277,42:POKE54278,250
  69. 575 POKE54276,23:POKE54273,23:POKE54272,191
  70. 580 FORTM=1TO30:NEXT:POKE54276,32:FORTM=1TO50:NEXT
  71. 585 POKE54296,0:RETURN
  72. 589 :
  73. 590 FORTM=1TO500:NEXT:RETURN
  74. 591 FORTM=1TO1000:NEXT:RETURN
  75. 592 FORTM=1TO2000:NEXT:RETURN
  76. 595 FORTM=1TO5000:NEXT:RETURN
  77. 599 :
  78. 800 PRINT"[147]";:POKEUT,UU%:POKEUY,0:POKEUX,0:POKE646,3
  79. 801 PRINT"      A TPUG EDUCATIONAL PROGRAM":GOSUB591
  80. 802 PRINT"                                        [146]";
  81. 803 PRINT"                                        [146]";
  82. 804 PRINT"                                        [146]";
  83. 805 PRINT"         GILLIAN'S SPELLING GAME        [146]";
  84. 806 PRINT"                                        [146]";
  85. 807 PRINT"         2-PLAYER OR 2-TEAM GAME        [146]";
  86. 808 PRINT"                                        [146]";
  87. 809 PRINT"[159]                                        [146]":GOSUB591:GOSUB560
  88. 810 PRINT"          INSTRUCTIONS?  Y/N
  89. 811 [161]R$:[139]R$[179][177]"Y"[175]R$[179][177]"N"[167]811
  90. 812 [139]R$[178]"Y"[167][141]400
  91. 813 [153]"LOAD  AND AWAY WE GO.......
  92. 814 GOSUB591:GOSUB500:GOSUB591
  93. 815 GOTO1000
  94. 830 GOSUB591:GOSUB560
  95. 835 POKEUN,0:PRINTLEFT$(UD$,24);"  [208]RESS [211][208][193][195][197] [194][193][210] TO CONTINUE  [146]"
  96. 840 GETUI$:IFUI$<>" "THEN840
  97. 845 RETURN
  98. 850 UP=UP+1:PRINT"[147]"LEFT$(UT$+UP$,21);RIGHT$(UP$+UG$+STR$(UP),18)
  99. 855 PRINT" --------------------------------------"
  100. 860 IFUH=0THENPRINTLEFT$(UD$,24);LEFT$(UP$,7);"[193]NSWER, THEN PRESS [210][197][212][213][210][206][146]"
  101. 865 UH=0:PRINT"":RETURN
  102. 875 PRINTLEFT$(UD$,24);"        SETTING THE STAGE....    ":RETURN
  103. 899 :
  104. 900 US=1024:U1=209:U2=210:U3=211:U4=214:UC=204:UB=2048:UX=53280:UD=2064
  105. 902 UT=53272:UU%=21:UL%=23:UP%=2151:UN=198:UY=53281:UU=2199:UE=2087
  106. 904 UC$=CHR$(155):UV=1214:UF=196:UV=2238
  107. 905 UD$="":UP$="                                      "
  108. 909 RETURN
  109. 910 GOSUB900:PRINT"[147] "
  110. 920 GOTO800
  111. 999 :
  112. 1000 PRINT"[147]"UC$;:RESTORE:POKEUY,0:POKEUX,0:POKEUT,UL%
  113. 1002 US$="ABCDEFGHIJKLMNOPQRSTUVWXYZ[193][194][195][196][197][198][199][200][201][202][203][204][205][206][207][208][209][210][211][212][213][214][215][216][217][218]":IN$=US$
  114. 1004 FLAG=1:UG$="":E=0:X=0
  115. 1006 GOTO1025
  116. 1014 PRINT"[147]"
  117. 1015 K=1:PRINT:RETURN
  118. 1025 REM
  119. 1028 PRINT"[147] [212]HIS IS A SPELLING GAME FOR TWO
  120. 1029 [153]" STUDENTS OR TWO TEAMS OF STUDENTS.
  121. 1030 PRINT" [212]HE [153][199][210][197][197][206][146][155] PLAYER(S) WILL SELECT         THE WORDS.
  122. 1031 [153]" (null)HE DEF(null)VALSTR$WAITLIST PLAYER(S) WILL ATTEMPT TO       UNSCRAMBLE THE WORDS.
  123. 1032 GOSUB830
  124. 1037 IFBEATLES=1THEN1050
  125. 1040 DIMW$(50):DIMS(1000)
  126. 1050 POKEUT,UL%
  127. 1060 UP=0:GOSUB865:IFBE=1THEN1111
  128. 1061 POKEUY,5:POKEUX,5:POKE646,0
  129. 1062 PRINT"[147]              [199][210][197][197][206] [212][197][193][205] [146]"
  130. 1063 PRINT"     [217]OUR TASK IS TO SELECT TWENTY
  131. 1064 [153]"     NASTY WORDS FOR THIS GAME.":[141]591:[141]830
  132. 1074 [153]"LOAD":X[178]20
  133. 1075 [151]53280,6:[151]53281,6:[151]646,15
  134. 1076 [153]" (null)YPE EACH WORD.  LENHECK SPELLING.
  135. 1077 PRINT" [201]F CORRECT, PRESS [210][197][212][213][210][206][146].
  136. 1081 US$[178]"'ABCDEFGHIJKLMNOPQRSTUVWXYZATNPEEKLENSTR$VALASCCHR$LEFT$RIGHT$MID$(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)":IN$[178]US$
  137. 1082 X[178]20
  138. 1085 [129]I[178]1[164]X
  139. 1090 [153]I;:UL[178]20:US$[178]IN$:[141]35:W$(I)[178]UR$
  140. 1095 [139]W$(I)[178]"" [167] [137]1090
  141. 1099 [130]I
  142. 1100 BE[178]BE[170]1
  143. 1102 [153]"LOAD  (null)OW CALL THE  (null)VALSTR$ WAIT PLAYER(S)
  144. 1103 PRINT"  AND MAY THE BEST PLAYER(S) WIN!":GOSUB500:GOSUB500:GOSUB592
  145. 1104 GOSUB830
  146. 1105 BE=BE+1
  147. 1110 UG$=""
  148. 1111 PRINT"[147]":POKE53280,2:POKE53281,2
  149. 1112 PRINT"                [210][197][196][160][212][197][193][205] [146]
  150. 1113 [153]" (null)IME FOR SPELLING FUN! ! !WAIT"
  151. 1124 [153]" LEFT$ERE ARE THE CHR$(null)VALVAL(null) (null)VALATN(null)WAIT WORDS.
  152. 1125 PRINT" [208]LEASE SAY EACH WORD AS IT IS PRINTED."
  153. 1130 GOSUB830:PRINT"[147]":UH=1:J=0
  154. 1140 FORI=1TOX
  155. 1145 PRINT"  ";W$(I):GOSUB560:GOSUB592:REM   FORV=1TO2500:NEXT
  156. 1147 J=J+1:IFJ=5THENGOSUB592:PRINT"[147]"
  157. 1150 PRINT
  158. 1155 NEXTI
  159. 1165 PRINT"[147] [199]OOD!  [206]OW YOU WILL SEE THE  [199][210][197][197][206] [146]
  160. 1166 [153]" TEAM WORDS, ONE AT A TIME WITH THE "
  161. 1170 [153]" LETTERS SCRAMBLED.  (null)EE IF YOU CAN      TYPE EACH WORD CORRECTLY."
  162. 1171 [141]830
  163. 1175 [141]1014
  164. 1177 K[178]0
  165. 1180 [129]I[178]1[164]X:[153]
  166. 1182 K[178]K[170]1:[139] K[178]2[167] [141]1015
  167. 1185 M$[178]W$(I)
  168. 1190 [129] R[178]1[164][195](M$)
  169. 1191 S(R)[178][181]([187](TI)[172][195](M$))[170]1
  170. 1192 [129]CO[178]1[164]R[171]1:[139]S(CO)[178]S(R)[175]R[179][177]1[167]1191
  171. 1193 [139]UW[179][177]0[167][151]59467,16:P[178][181]([187](1)[172]245)[170]10:[151]59466,P:[151]59464,P
  172. 1194 [139]UW[179][177]0[167][151]59466,0:[151]59464,0
  173. 1195 [130]CO
  174. 1197 [141]560:[153]" ";[202](M$,S(R),1);:[130]R
  175. 1198 [153]"   ";:UL[178]20:US$[178]IN$:[141]35:S$[178]UR$
  176. 1199 [139] S$[178]M$[167] [141]500:[141]1220
  177. 1200 [139]S$[179][177]M$[167] [141]530:[141]1240
  178. 1205 [139]F[177]0[167]1198
  179. 1210 [139]I[178]X[167]1260
  180. 1215 [130]I:[137]1260
  181. 1220 G[178]O[170]1:[145] G [137]1225,1230,1235
  182. 1225 [153]"     SQR  CHR$OOD! (null)OU GOT THAT ONE!":F[178]0:O[178]O[170]1:[153]:[142]
  183. 1230 [153]"     SQR  (null)ASN'T THAT EASY!":F[178]0:O[178]O[170]1:[153]:[142]
  184. 1235 [153]"     SQR  (null)UPER!!, ";Z$:O[178]0:F[178]0:[153]:[142]
  185. 1240 G[178]F[170]1:[145]G [137] 1245,1250,1255
  186. 1245 [153]"      OOOOPS! (null)OT QUITE "Z$:[153][166]14)"TRY AGAIN.":F[178]F[170]1:[142]
  187. 1250 [153]"      (null)O, ONE MORE TIME.":F[178]F[170]1:[142]
  188. 1255 [153]"      (null)ORRY, ";Z$;"."
  189. 1257 [153]"      (null)HE WORD ISWAIT....'";W$(I);"'":F[178]0:[142]
  190. 1260 [141]830:[141]865
  191. 1265 [153]:[153]:[153]:[153]" (null)OW RIGHT$'M GOING TO PRINT EACH WORD WITH"
  192. 1267 [153]" SOME LETTERS MISSING. (null)OUR JOB IS  "
  193. 1270 [153]" TO TYPE IN THE CORRECT WORD."
  194. 1273 [153]" RIGHT$F YOU DON'T KNOW THE WORD, TYPE 'A'"
  195. 1275 [153]" FOR HELP AND RIGHT$'LL GIVE YOU ONE MORE"
  196. 1277 [153]" LETTER. (null)YPE 'AA' IF YOU ARE REALLY"
  197. 1280 [153]" STUMPED."
  198. 1285 K[178]0:[141]830
  199. 1290 [129] I[178]1[164]X
  200. 1292 K[178]K[170]1:[139] K[178]2[167] [141]1015
  201. 1295 M$[178]W$(I)
  202. 1300 [139] [195](M$)[177]4[167]1310
  203. 1305 [153]" ";[200](M$,2);:[139][195](M$)[179]3[167]1345
  204. 1306 [129]Y[178]3[164][195](M$):[153]"*";:[130]Y:[137]1345
  205. 1310 [153]" ";[200](M$,2);"**";[202](M$,5,1);:[139][195](M$)[178]5[167]1345
  206. 1315 [129]Y[178]6[164][195](M$):[153]"*";:[130]Y:[137]1345
  207. 1320 [139] [195](M$)[177]4[167]1330
  208. 1325 [153]"ON ";[200](M$,3);:[139][195](M$)[179]4[167]1345
  209. 1326 [129]Y[178]4[164][195](M$):[153]"*";:[130]Y:[137]1345
  210. 1330 [153]"ON ";[200](M$,3);:[153]"*";:[153][202](M$,5,1);:[139][195](M$)[178]5[167]1345
  211. 1335 [129]Y[178]6[164][195](M$):[153]"*";
  212. 1340 [130]Y:[137]1345
  213. 1345 [143]
  214. 1350 [153]"     ?CMD";:US$[178]IN$:[141]35:H$[178]UR$
  215. 1352 [139] H$[178]"A"[167]1320
  216. 1355 [139]H$[178]"AA"[167][141]1255:[137]1370
  217. 1360 [139]H$[178]M$[167] [141] 1220:[137]1375
  218. 1365 [139]H$[179][177]M$[167][141]1240
  219. 1370 [139]F[177]0[167] 1345
  220. 1375 [139]I[178]X[167]1380
  221. 1380 [130]I
  222. 1385 [141]830:[153][163]11)"(null)OW FOR MORE FUN!"
  223. 1390 [153]:[153]:[153]" (null)OME OF THE NEXT WORDS MAY BE CORRECT."
  224. 1395 [153]" (null)OME OF THEM (MAYBE ALL OF THEM) WILL"
  225. 1397 [153]" HAVE THE WRONG LETTERS IN THEM. (null)OUR"
  226. 1400 [153]" JOB IS TO TYPE EACH WORD CORRECTLY."
  227. 1405 [141]830:K[178]0:[153]:[129]I[178]1[164]X
  228. 1407 K[178]K[170]1:[139]K[178]2[167] [141]1015
  229. 1410 M$[178]W$(I)
  230. 1415 V$[178]"AEIOU"
  231. 1420 K$[178]M$
  232. 1425 [129]D[178]1[164][195](M$)
  233. 1430 D$[178][202](M$,D,1)
  234. 1435 [139]D$[178]"A"[176]D$[178]"E"[176]D$[178]"I"[176]D$[178]"O"[176]D$[178]"U"[167]1445
  235. 1440 [137]1460
  236. 1445 V[178][187](1)[172]4:V[178][181](V[170]1.5)
  237. 1450 Q$[178][202](V$,V,1)
  238. 1455 K$[178][200](K$,D[171]1)[170]Q$[170][201](K$,[195](K$)[171]D)
  239. 1460 [130]D
  240. 1465 [153]" ";K$;
  241. 1470 [153]"   ";:UL[178]20:[141]35:L$[178]UR$:[139] L$[178]M$[137]1490
  242. 1475 [139]L$[179][177]M$[167][141]1540
  243. 1480 [139]I[178]X[167]1500
  244. 1485 [130]I:[137]1505
  245. 1490 E[178]E[170]1:[141]1220
  246. 1495 [137]1480
  247. 1500 [139]E[173]X[179].8[167][153]"   (null)CLOSE(null)CLOSE(null)CLOSECLOSELENCLOSEATNCLOSE(null)CLOSECLOSESTR$CLOSE(null)CLOSECLOSEPEEKCLOSEVALCLOSE(null)CLOSE(null)CLOSEVALCLOSE(null).":[137]1510
  248. 1502 [153][163]5)"LEFT$CLOSE(null)CLOSE(null)CLOSE(null)CLOSEATNCLOSE(null)!!"
  249. 1504 [141]830:[153][163]5)"(null)OU GOT ";E;" RIGHT"
  250. 1506 [153][163]5)"OUT OF THE LAST ";X;" WORDS"
  251. 1508 [153]"     (null)OULD YOU LIKE TO TRY AGAIN? ";:US$[178]"YN":UL[178]1:[141]35:A$[178]UR$
  252. 1510 [139]A$[178]"Y"[167]E[178]0:[153]:[137]1125
  253. 1514 [153]"LOAD  (null)ETURNING TO THE DISK (null)VAL(null)(null)
  254. 1516 LOAD"MENU",8
  255. 1518 RUN
  256. 1520 END
  257. 1522 :
  258. 1535 IFUW=0THENGOSUB5000
  259. 1536 FORT=1TO3:PRINTCHR$(7):NEXT
  260. 1539 RETURN
  261. 1540 PRINT" [201]'M SORRY BUT THAT WAS INCORRECT. [212]HE   WORD IS.... ";M$
  262. 1545 RETURN
  263. 1610 J=J+1
  264. 5000 FORA8=1TO700:NEXT:RETURN
  265. 6000 REM WHC 90:11:30
  266.